10 POKE53280,0:POKE53281,0:POKE646,3
20 P=0:POKE53272,21:GOTO100
72 O IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]":RETURN
80 FORTM=1TO500:NEXT:RETURN
81 FORTM=1TO1000:NEXT:RETURN
82 FORTM=1TO2000:NEXT:RETURN
83 FORTM=1TO3000:NEXT:RETURN
84 FORTM=1TO4000:NEXT:RETURN
90 GOSUB81:GOSUB600
91 PRINT"[154]     PRESS  SPACE BAR [146] TO CONTINUE
92 [161]R$:[139]R$[179][177][199](32)[167]92
93 [142]
100 [153]"LOAD       A TPUG EDUCATIONAL PROGRAM
110 PRINT"            FOR C64 COMPUTERS
120 [153]"                                        WAIT";
130 [153]"                                        WAIT";
140 [153]"                                        WAIT";
150 [153]"          ADDING TOUGH NUMBERS          WAIT";
160 [153]"                                        WAIT";
170 [153]"OPEN                                        WAIT";
180 [153]"                                        WAIT"
190 [141]90
200 [153]"LOAD   SELECT YOUR LEVEL:
205 PRINT"[159]   1.  SAME NUMBERS................ 2+2
210 [153]"   2.  NUMBERS DIFFERENT BY ONE.... 2+3
215 PRINT"   3.  NUMBERS DIFFERENT BY TWO.... 2+4
220 [153]"   4.  NUMBERS DIFFERENT BY THREE.. 2+5
225 PRINT"   5.  NUMBERS DIFFERENT BY FOUR... 2+6":GOSUB81:GOSUB600
230 GETR$:IFR$<>"1"ANDR$<>"2"ANDR$<>"3"ANDR$<>"4"ANDR$<>"5"THEN230
235 P$=R$
240 PRINT"[158]         YOU HAVE SELECTED "P$"."
245 GOSUB90
250 IF P$="1"THEN3000
255 IF P$="2"THEN1000
260 IF P$="3"THEN2000
265 IF P$="4"THEN4000
270 IF P$="5"THEN5000
500 REM RAY GUN
505 S=54272:FORE=STOS+28:POKEE,0:NEXT
510 POKE54296,15:POKES+24,15:POKES+6,240:POKES+4,17
515 FORA=1TO10:FORX=1TO255STEP25:POKES+1,X
520 NEXT X:NEXTA:POKES+4,32:POKE54296,0:RETURN
550 REM BELL
555 S=54272:FORL=STOS+28:POKEL,0:NEXT
560 POKE54296,15:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15:POKES+4,21
565 FORT=1TO2000:NEXT
570 POKES+4,20
575 RETURN
600 REM DING
605 S=54272:FORL=STOS+28:POKEL,0:NEXT
610 POKE54296,3:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15:POKES+4,21
615 FORT=1TO100:NEXT
620 POKES+4,20:POKE54296,0
625 RETURN
700 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
710 GOSUB500:GOSUB81:P=P+1:RETURN
720 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
730 RETURN
740 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82:RETURN
800 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550:RETURN
1000 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
1005 PRINT"             2 + 2 =  4 ":GOSUB82
1010 PRINT"             3 + 3 =  6":GOSUB83:GOSUB600
1020 PRINT"[145][145][145][145]             2 + 3 =";
1030 INPUTA$
1040 IFA$<>"5" THEN1060
1050 GOSUB800
1055 GOSUB81:GOTO 1100
1060 GOSUB700:GOSUB720
1070 IFP=3THENPRINT"  STOP AND WRITE   2 + 3 = 5  [159]"
1080 IFP=3THENGOSUB84:GOSUB90:GOTO 1100
1085 GOSUB740
1090 PRINT"[145][145]                                        [145][145][145]":GOTO1020
1100 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
1105 PRINT"             3 + 3 =  6 ":GOSUB82
1110 PRINT"             4 + 4 =  8":GOSUB83
1120 PRINT"[145][145][145][145]             3 + 4 =";
1130 INPUTA$
1140 IFA$<>"7" THEN1160
1150 GOSUB800
1155 GOSUB81:GOTO 1200
1160 GOSUB700:GOSUB7200
1170 IFP=3THENPRINT"  STOP AND WRITE   3 + 4 = 7  [159]"
1180 IFP=3THENGOSUB84:GOSUB90:GOTO 1200
1185 GOSUB740
1190 PRINT"[145][145]                                        [145][145][145]":GOTO1120
1200 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
1205 PRINT"             4 + 4 =  8":GOSUB82
1210 PRINT"             5 + 5 =  10":GOSUB83
1220 PRINT"[145][145][145][145]             4 + 5 =";
1230 INPUTA$
1240 IFA$<>"9" THEN1260
1250 GOSUB800
1255 GOSUB81:GOTO 1300
1260 GOSUB700:GOSUB720:GOSUB82
1275 IFP=3THENPRINT"  STOP AND WRITE   4 + 5 = 9  [159]"
1280 IFP=3THENGOSUB84:GOSUB90:GOTO 1300
1285 GOSUB740
1290 PRINT"[145][145]                                        [145][145][145]":GOTO1220
1300 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
1305 PRINT"             5 + 5 =  10 ":GOSUB82
1310 PRINT"             6 + 6 =  12":GOSUB83
1320 PRINT"[145][145][145][145]             5 + 6 =";
1330 INPUTA$
1340 IFA$<>"11" THEN1360
1350 GOSUB800
1355 GOSUB81:GOTO 1400
1360 GOSUB700:GOSUB720:GOSUB82
1375 IFP=3THENPRINT"  STOP AND WRITE   5 + 6 = 11  [159]"
1380 IFP=3THENGOSUB84:GOSUB90:GOTO 1400
1385 GOSUB740
1390 PRINT"[145][145]                                        [145][145][145]":GOTO1320
1400 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
1405 PRINT"             6 + 6 =  12 ":GOSUB82
1410 PRINT"             7 + 7 =  14":GOSUB83
1420 PRINT"[145][145][145][145]             6 + 7 =";
1430 INPUTA$
1440 IFA$<>"13" THEN1460
1445 GOSUB800
1455 GOSUB81:GOTO 1500
1460 GOSUB700:GOSUB720:GOSUB82
1475 IFP=3THENPRINT"  STOP AND WRITE   6 + 7 = 13  [159]"
1480 IFP=3THENGOSUB84:GOSUB90:GOTO 1500
1485 GOSUB740
1490 PRINT"[145][145]                                        [145][145][145]":GOTO1420
1500 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
1505 PRINT"             7 + 7 =  14 ":GOSUB82
1510 PRINT"             8 + 8 =  16":GOSUB83
1520 PRINT"[145][145][145][145]             7 + 8 =";
1530 INPUTA$
1540 IFA$<>"15" THEN1560
1545 GOSUB800
1555 GOSUB81:GOTO 1600
1560 GOSUB700:GOSUB720:GOSUB82
1575 IFP=3THENPRINT"  STOP AND WRITE   7 + 8 = 15  [159]"
1580 IFP=3THENGOSUB84:GOSUB90:GOTO 1600
1585 GOSUB740
1590 PRINT"[145][145]                                        [145][145][145]":GOTO1520
1600 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
1605 PRINT"             8 + 8 =  16":GOSUB82
1610 PRINT"             9 + 9 =  19":GOSUB83
1620 PRINT"[145][145][145][145]             8 + 9 =";
1630 INPUTA$
1640 IFA$<>"17" THEN1660
1650 GOSUB800
1655 GOSUB81:GOSUB1700
1660 GOSUB700:GOSUB720:GOSUB82
1675 IFP=3THENPRINT"  STOP AND WRITE   8 + 9 = 17  [159]"
1680 IFP=3THENGOSUB84:GOSUB90:GOTO 1700
1685 GOSUB740
1690 PRINT"[145][145]                                        [145][145][145]":GOTO1620
1700 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
1705 PRINT"             9 + 9 =  18":GOSUB82
1710 PRINT"           10 + 10 =  20":GOSUB83
1720 PRINT"[145][145][145][145]            9 + 10 =";
1730 INPUTA$
1740 IFA$<>"19" THEN1760
1750 GOSUB800
1755 GOSUB81:GOSUB1800
1760 GOSUB700:GOSUB720:GOSUB82
1775 IFP=3THENPRINT"  STOP AND WRITE   9 + 10 = 19  [159]"
1780 IFP=3THENGOSUB84:GOSUB90:GOTO 1800
1785 GOSUB740
1790 PRINT"[145][145]                                        [145][145][145]":GOTO1720
1800 PRINT"[147]   YOU HAVE COMPLETED LEVEL 2.
1805 [153]"   YOU NOW HAVE A CHOICE:
1810 PRINT"   PRESS  R [146] TO REPEAT THIS LEVEL.
1815 [153]"   PRESS  C WAIT TO SELECT A NEW LEVEL
1820 PRINT"   PRESS  M [146] TO RETURN TO DISK MENU
1825 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]1825
1830 [139]R$[178]"R"[167] [140]:[137]1000
1835 [139]R$[178]"C"[167] [140]:[137]200
1840 [151]631,13:[151]198,2
1845 [153]"LOAD RETURNING TO THE DISK MENU
1850 LOAD"MENU",8
1855 RUN
1860 END
2000 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
2005 PRINT"             2 + 2 =  4 ":GOSUB82
2010 PRINT"             2 + 3 =  5 ":GOSUB83
2020 GOSUB600:PRINT"             2 + 4 =";
2030 INPUTA$
2040 IFA$<>"6" THEN2060
2050 GOSUB800
2055 GOSUB82:GOTO2100
2060 GOSUB700
2070 GOSUB720
2075 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   2 + 4 = 6  [159]"
2080 IFP=3THENGOSUB84:GOSUB90:GOTO 2100
2085 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
2090 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2020
2100 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
2105 PRINT"             3 + 3 =  6 ":GOSUB82
2110 PRINT"             3 + 4 =  7 ":GOSUB83
2120 GOSUB600:PRINT"             3 + 5 =";
2130 INPUTA$
2140 IFA$<>"8" THEN2160
2150 GOSUB800
2155 GOSUB82:GOTO2200
2160 GOSUB700
2170 GOSUB720
2175 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   3 + 5 = 8  [159]"
2180 IFP=3THENGOSUB84:GOSUB90:GOTO 2200
2185 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
2190 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2120
2200 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
2205 PRINT"             4 + 4 =  8":GOSUB82
2210 PRINT"             4 + 5 =  9 ":GOSUB83
2220 GOSUB600:PRINT"             4 + 6 =";
2230 INPUTA$
2240 IFA$<>"10" THEN2260
2250 GOSUB800
2255 GOSUB82:GOTO2300
2260 GOSUB700
2270 GOSUB720
2275 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   4 + 6 = 10  [159]"
2280 IFP=3THENGOSUB84:GOSUB90:GOTO 2300
2285 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
2290 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2220
2300 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
2305 PRINT"             5 + 5 =  10 ":GOSUB82
2310 PRINT"             5 + 6 =  11 ":GOSUB83
2320 GOSUB600:PRINT"             5 + 7 =";
2330 INPUTA$
2340 IFA$<>"12" THEN2360
2350 GOSUB800
2355 GOSUB82:GOTO2400
2360 GOSUB700
2370 GOSUB720
2375 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   5 + 7 = 12  [159]"
2380 IFP=3THENGOSUB84:GOSUB90:GOTO 2400
2385 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
2390 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2320
2400 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
2405 PRINT"             6 + 6 =  12 ":GOSUB82
2410 PRINT"             6 + 7 =  13":GOSUB83
2420 GOSUB600:PRINT"             6 + 8 =";
2430 INPUTA$
2440 IFA$<>"14" THEN2460
2450 GOSUB800
2455 GOSUB82:GOTO2500
2460 GOSUB700
2470 GOSUB720
2475 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   6 + 8 = 14  [159]"
2480 IFP=3THENGOSUB84:GOSUB90:GOTO 2500
2485 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
2490 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2420
2500 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
2505 PRINT"             7 + 7 =  14 ":GOSUB82
2510 PRINT"             7 + 8 =  15":GOSUB83
2520 GOSUB600:PRINT"             7 + 9 =";
2530 INPUTA$
2540 IFA$<>"16" THEN2560
2550 GOSUB800
2555 GOSUB82:GOTO2600
2560 GOSUB700
2570 GOSUB720
2575 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   7 + 9 = 16  [159]"
2580 IFP=3THENGOSUB84:GOSUB90:GOTO 2600
2585 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
2590 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2520
2600 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
2605 PRINT"             8 + 8 =  16 ":GOSUB82
2610 PRINT"             8 + 9 =  17":GOSUB83
2620 GOSUB600:PRINT"            8 + 10 =";
2630 INPUTA$
2640 IFA$<>"18" THEN2660
2650 GOSUB800
2655 GOSUB82:GOTO2700
2660 GOSUB700
2670 GOSUB720
2675 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   8 + 10 = 18  [159]"
2680 IFP=3THENGOSUB84:GOSUB90:GOTO 2700
2685 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
2690 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2620
2700 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
2705 PRINT"             9 + 9 =  18 ":GOSUB82
2710 PRINT"            9 + 10 =  19":GOSUB83
2720 GOSUB600:PRINT"            9 + 11 =";
2730 INPUTA$
2740 IFA$<>"20" THEN2760
2750 GOSUB800
2755 GOSUB82:GOTO2800
2760 GOSUB700
2770 GOSUB720
2775 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   9 + 11 = 20  [159]"
2780 IFP=3THENGOSUB84:GOSUB90:GOTO 2800
2785 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
2790 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2720
2800 PRINT"[147]   YOU HAVE COMPLETED LEVEL 3.
2805 [153]"   YOU NOW HAVE A CHOICE:
2810 PRINT"   PRESS  R [146] TO REPEAT THIS LEVEL.
2815 [153]"   PRESS  C WAIT TO SELECT A NEW LEVEL
2820 PRINT"   PRESS  M [146] TO RETURN TO DISK MENU
2825 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]2825
2830 [139]R$[178]"R"[167] [140]:[137]2000
2835 [139]R$[178]"C"[167] [140]:[137]200
2840 [151]631,13:[151]198,2
2845 [153]"LOAD RETURNING TO THE DISK MENU
2850 LOAD"MENU",8
2855 RUN
2860 END
3000 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
3005 PRINT"             1 + 1 =  2 ":GOSUB82
3010 PRINT"             2 + 2 =  4 ":GOSUB82
3020 GOSUB600:PRINT"             3 + 3 =";
3030 INPUTA$
3040 IFA$<>"6" THEN3060
3050 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
3055 GOSUB82:GOTO3100
3060 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
3065 GOSUB500:GOSUB82:P=P+1
3070 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
3075 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   3 + 3 = 6  [159]"
3080 IFP=3THENGOSUB84:GOSUB90:GOTO 3100
3085 GOSUB740
3090 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3020
3100 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
3105 PRINT"             2 + 2 =  4 ":GOSUB82
3110 PRINT"             3 + 3 =  6 ":GOSUB82
3120 GOSUB600:PRINT"             4 + 4 =";
3130 INPUTA$
3140 IFA$<>"8" THEN3160
3150 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
3155 GOSUB82:GOTO3200
3160 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
3165 GOSUB500:GOSUB82:P=P+1
3170 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
3175 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   4 + 4 = 8  [159]"
3180 IFP=3THENGOSUB84:GOSUB90:GOTO 3200
3185 GOSUB740
3190 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3120
3200 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
3205 PRINT"             3 + 3 =  7":GOSUB82
3210 PRINT"             4 + 4 =  8 ":GOSUB82
3220 GOSUB600:PRINT"             5 + 5 =";
3230 INPUTA$
3240 IFA$<>"10" THEN3260
3250 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
3255 GOSUB82:GOTO3300
3260 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
3265 GOSUB500:GOSUB82:P=P+1
3270 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
3275 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   5 + 5 = 10  [159]"
3280 IFP=3THENGOSUB84:GOSUB90:GOTO 2300
3285 GOSUB740
3290 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3220
3300 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
3305 PRINT"             4 + 4 =  8  ":GOSUB82
3310 PRINT"             5 + 5 =  10 ":GOSUB82
3320 GOSUB600:PRINT"             6 + 6 =";
3330 INPUTA$
3340 IFA$<>"12" THEN3360
3350 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
3355 GOSUB82:GOTO3400
3360 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
3365 GOSUB500:GOSUB82:P=P+1
3370 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
3375 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   6 + 6 = 12  [159]"
3380 IFP=3THENGOSUB84:GOSUB90:GOTO 3400
3385 GOSUB740
3390 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3320
3400 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
3405 PRINT"             5 + 5 =  10 ":GOSUB82
3410 PRINT"             6 + 6 =  12":GOSUB82
3420 GOSUB600:PRINT"             7 + 7 =";
3430 INPUTA$
3440 IFA$<>"14" THEN3460
3450 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
3455 GOSUB82:GOTO3500
3460 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
3465 GOSUB500:GOSUB82:P=P+1
3470 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
3475 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   7 + 7 = 14  [159]"
3480 IFP=3THENGOSUB84:GOSUB90:GOTO 3500
3485 GOSUB740
3490 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3420
3500 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
3505 PRINT"             6 + 6 =  12 ":GOSUB82
3510 PRINT"             7 + 7 =  14":GOSUB82
3520 GOSUB600:PRINT"             8 + 8 =";
3530 INPUTA$
3540 IFA$<>"16" THEN3560
3550 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
3555 GOSUB82:GOTO3600
3560 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
3565 GOSUB500:GOSUB82:P=P+1
3570 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
3575 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   8 + 8 = 16  [159]"
3580 IFP=3THENGOSUB84:GOSUB90:GOTO 3600
3585 GOSUB740
3590 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3520
3600 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
3605 PRINT"             7 + 7 =  14 ":GOSUB82
3610 PRINT"             8 + 8 =  16":GOSUB82
3620 GOSUB600:PRINT"             9 + 9 =";
3630 INPUTA$
3640 IFA$<>"18" THEN3660
3650 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
3655 GOSUB82:GOTO3700
3660 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
3665 GOSUB500:GOSUB82:P=P+1
3670 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
3675 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   9 + 9 = 18  [159]"
3680 IFP=3THENGOSUB84:GOSUB90:GOTO 3700
3685 GOSUB740
3690 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3620
3700 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
3705 PRINT"             8 + 8 =  16 ":GOSUB82
3710 PRINT"             9 + 9 =  18":GOSUB82
3720 GOSUB600:PRINT"           10 + 10 =";
3730 INPUTA$
3740 IFA$<>"20" THEN3760
3750 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
3755 GOSUB82:GOTO3800
3760 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
3765 GOSUB500:GOSUB82:P=P+1
3770 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
3775 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   10 + 10 = 20  [159]"
3780 IFP=3THENGOSUB84:GOSUB90:GOTO 3800
3785 GOSUB740
3790 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3720
3800 PRINT"[147]   YOU HAVE COMPLETED LEVEL 1.
3805 [153]"   YOU NOW HAVE A CHOICE:
3810 PRINT"   PRESS  R [146] TO REPEAT THIS LEVEL.
3815 [153]"   PRESS  C WAIT TO SELECT A NEW LEVEL
3820 PRINT"   PRESS  M [146] TO RETURN TO DISK MENU
3825 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]3825
3830 [139]R$[178]"R"[167] [140]:[137]3000
3835 [139]R$[178]"C"[167] [140]:[137]200
3840 [151]631,13:[151]198,2
3845 [153]"LOAD RETURNING TO THE DISK MENU
3850 LOAD"MENU",8
3855 RUN
3860 END
4000 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
4005 PRINT"             2 + 2 =  4 ":GOSUB82
4010 PRINT"             2 + 3 =  5 ":GOSUB82
4015 PRINT"             2 + 4 =  6 ":GOSUB82
4020 PRINT"             2 + 5 =";
4030 GOSUB600:INPUTA$
4040 IFA$<>"7" THEN4060
4050 GOSUB800
4055 GOSUB82:GOTO4100
4060 GOSUB700
4065 GOSUB500:GOSUB82:P=P+1
4070 GOSUB720
4075 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   2 + 5 = 7  [159]"
4080 IFP=3THENGOSUB84:GOSUB90:GOTO 4100
4085 GOSUB740
4090 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4020
4100 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
4105 PRINT"             3 + 3 =  6 ":GOSUB82
4110 PRINT"             3 + 4 =  7 ":GOSUB82
4115 PRINT"             3 + 5  = 8 ":GOSUB82
4120 PRINT"             3 + 6 =";
4130 GOSUB600:INPUTA$
4140 IFA$<>"9" THEN4160
4150 GOSUB800
4155 GOSUB82:GOTO4200
4160 GOSUB700
4165 GOSUB500:GOSUB82:P=P+1
4170 GOSUB720
4175 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   3 + 6 = 9  [159]"
4180 IFP=3THENGOSUB84:GOSUB90:GOTO 4200
4185 GOSUB740
4190 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4120
4200 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
4205 PRINT"             4 + 4 =  8 ":GOSUB82
4210 PRINT"             4 + 5 =  9 ":GOSUB82
4215 PRINT"             4 + 6 =  10":GOSUB82
4220 PRINT"             4 + 7 =";
4230 GOSUB600:INPUTA$
4240 IFA$<>"11" THEN4260
4250 GOSUB800
4255 GOSUB82:GOTO4300
4260 GOSUB700
4265 GOSUB500:GOSUB82:P=P+1
4270 GOSUB720
4275 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   4 + 7 = 11  [159]"
4280 IFP=3THENGOSUB84:GOSUB90:GOTO 4300
4285 GOSUB740
4290 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4220
4300 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
4305 PRINT"             5 + 5 =  10":GOSUB82
4310 PRINT"             5 + 6 =  11":GOSUB82
4315 PRINT"             5 + 7 =  12":GOSUB82
4320 PRINT"             5 + 8 =";
4330 GOSUB600:INPUTA$
4340 IFA$<>"13" THEN4360
4350 GOSUB800
4355 GOSUB82:GOTO4400
4360 GOSUB700
4365 GOSUB500:GOSUB82:P=P+1
4370 GOSUB720
4375 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   5 + 8 = 13  [159]"
4380 IFP=3THENGOSUB84:GOSUB90:GOTO 4400
4385 GOSUB740
4390 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4320
4400 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
4405 PRINT"             6 + 6 =  12":GOSUB82
4410 PRINT"             6 + 7 =  13":GOSUB82
4415 PRINT"             6 + 8 =  14":GOSUB82
4420 PRINT"             6 + 9 =";
4430 GOSUB600:INPUTA$
4440 IFA$<>"15" THEN4460
4450 GOSUB800
4455 GOSUB82:GOTO4500
4460 GOSUB700
4465 GOSUB500:GOSUB82:P=P+1
4470 GOSUB720
4475 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   6 + 9 = 15  [159]"
4480 IFP=3THENGOSUB84:GOSUB90:GOTO 4500
4485 GOSUB740
4490 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4420
4500 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
4505 PRINT"             7 + 7 =  14":GOSUB82
4510 PRINT"             7 + 8 =  15":GOSUB82
4515 PRINT"             7 + 9 =  16":GOSUB82
4520 PRINT"            7 + 10 =";
4530 GOSUB600:INPUTA$
4540 IFA$<>"17" THEN4560
4550 GOSUB800
4555 GOSUB82:GOTO4600
4560 GOSUB700
4565 GOSUB500:GOSUB82:P=P+1
4570 GOSUB720
4575 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   7 + 10 = 17  [159]"
4580 IFP=3THENGOSUB84:GOSUB90:GOTO 4600
4585 GOSUB740
4590 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4520
4600 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
4605 PRINT"             8 + 8 =  16":GOSUB82
4610 PRINT"             8 + 9 =  17":GOSUB82
4615 PRINT"            8 + 10 =  18":GOSUB82
4620 PRINT"            8 + 11 =";
4630 GOSUB600:INPUTA$
4640 IFA$<>"19" THEN4660
4650 GOSUB800
4655 GOSUB82:GOTO4700
4660 GOSUB700
4665 GOSUB500:GOSUB82:P=P+1
4670 GOSUB720
4675 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   8 + 11 = 19  [159]"
4680 IFP=3THENGOSUB84:GOSUB90:GOTO 4700
4685 GOSUB740
4690 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4620
4700 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
4705 PRINT"             9 + 9 =  18":GOSUB82
4710 PRINT"            9 + 10 =  19":GOSUB82
4715 PRINT"            9 + 11 =  20":GOSUB82
4720 PRINT"            9 + 12 =";
4730 GOSUB600:INPUTA$
4740 IFA$<>"21" THEN4760
4750 GOSUB800
4755 GOSUB82:GOTO4800
4760 GOSUB700
4765 GOSUB500:GOSUB82:P=P+1
4770 GOSUB720
4775 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   9 + 12 = 21  [159]"
4780 IFP=3THENGOSUB84:GOSUB90:GOTO 4800
4785 GOSUB740
4790 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4720
4800 PRINT"[147]   YOU HAVE COMPLETED LEVEL 4.
4805 [153]"   YOU NOW HAVE A CHOICE:
4810 PRINT"   PRESS  R [146] TO REPEAT THIS LEVEL.
4815 [153]"   PRESS  C WAIT TO SELECT A NEW LEVEL
4820 PRINT"   PRESS  M [146] TO RETURN TO DISK MENU
4825 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]4825
4830 [139]R$[178]"R"[167] [140]:[137]4000
4835 [139]R$[178]"C"[167] [140]:[137]200
4840 [151]631,13:[151]198,2
4845 [153]"LOAD RETURNING TO THE DISK MENU
4850 LOAD"MENU",8
4855 RUN
4860 END
5000 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
5005 PRINT"             2 + 2 =  4 ":GOSUB82
5010 PRINT"             2 + 3 =  5 ":GOSUB82
5015 PRINT"             2 + 4 =  6 ":GOSUB82
5020 PRINT"             2 + 5 =  7 ":GOSUB82
5025 PRINT"             2 + 6 =";
5030 GOSUB600:INPUTA$
5040 IFA$<>"8" THEN5060
5050 GOSUB800
5055 GOSUB82:GOTO5100
5060 GOSUB700
5065 GOSUB500:GOSUB82:P=P+1
5070 GOSUB720
5075 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   2 + 6 = 8  [159]"
5080 IFP=3THENGOSUB84:GOSUB90:GOTO 5100
5085 GOSUB740
5090 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5020
5100 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
5105 PRINT"             3 + 3 =  6 ":GOSUB82
5110 PRINT"             3 + 4 =  7 ":GOSUB82
5115 PRINT"             3 + 5 =  8 ":GOSUB82
5120 PRINT"             3 + 6 =  9 ":GOSUB82
5125 PRINT"             3 + 7 =";
5130 GOSUB600:INPUTA$
5140 IFA$<>"10" THEN5160
5150 GOSUB800
5155 GOSUB82:GOTO5200
5160 GOSUB700
5165 GOSUB500:GOSUB82:P=P+1
5170 GOSUB720
5175 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   3 + 7 = 10 [159]"
5180 IFP=3THENGOSUB84:GOSUB90:GOTO 5200
5185 GOSUB740
5190 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5120
5200 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
5205 PRINT"             4 + 4 =  8 ":GOSUB82
5210 PRINT"             4 + 5 =  9 ":GOSUB82
5215 PRINT"             4 + 6 =  10":GOSUB82
5220 PRINT"             4 + 7 =  11":GOSUB82
5225 PRINT"             4 + 8 =";
5230 GOSUB600:INPUTA$
5240 IFA$<>"12" THEN5260
5250 GOSUB800
5255 GOSUB82:GOTO5300
5260 GOSUB700
5265 GOSUB500:GOSUB82:P=P+1
5270 GOSUB720
5275 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   4 + 8 = 12 [159]"
5280 IFP=3THENGOSUB84:GOSUB90:GOTO 5300
5285 GOSUB740
5290 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5220
5300 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
5305 PRINT"             5 + 5 =  10":GOSUB82
5310 PRINT"             5 + 6 =  11":GOSUB82
5315 PRINT"             5 + 7 =  12":GOSUB82
5320 PRINT"             5 + 8 =  13":GOSUB82
5325 PRINT"             5 + 9 =";
5330 GOSUB600:INPUTA$
5340 IFA$<>"14" THEN5360
5350 GOSUB800
5355 GOSUB82:GOTO5400
5360 GOSUB700
5365 GOSUB500:GOSUB82:P=P+1
5370 GOSUB720
5375 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   5 + 9 = 14 [159]"
5380 IFP=3THENGOSUB84:GOSUB90:GOTO 5400
5385 GOSUB740
5390 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5320
5400 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
5405 PRINT"             6 + 6 =  12":GOSUB82
5410 PRINT"             6 + 7 =  13":GOSUB82
5415 PRINT"             6 + 8 =  14":GOSUB82
5420 PRINT"             6 + 9 =  15":GOSUB82
5425 PRINT"            6 + 10 =";
5430 GOSUB600:INPUTA$
5440 IFA$<>"16" THEN5460
5450 GOSUB800
5455 GOSUB82:GOTO5500
5460 GOSUB700
5465 GOSUB500:GOSUB82:P=P+1
5470 GOSUB720
5475 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   6 + 10 = 16 [159]"
5480 IFP=3THENGOSUB84:GOSUB90:GOTO 5500
5485 GOSUB740
5490 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5420
5500 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
5505 PRINT"             7 + 7 =  14":GOSUB82
5510 PRINT"             7 + 8 =  15":GOSUB82
5515 PRINT"             7 + 9 =  16":GOSUB82
5520 PRINT"            7 + 10 =  17":GOSUB82
5525 PRINT"            7 + 11 =";
5530 GOSUB600:INPUTA$
5540 IFA$<>"18" THEN5560
5550 GOSUB800
5555 GOSUB82:GOTO5600
5560 GOSUB700
5565 GOSUB500:GOSUB82:P=P+1
5570 GOSUB720
5575 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   7 + 11 = 18 [159]"
5580 IFP=3THENGOSUB84:GOSUB90:GOTO 5600
5585 GOSUB740
5590 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5520
5600 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
5605 PRINT"             8 + 8 =  16":GOSUB82
5610 PRINT"             8 + 9 =  17":GOSUB82
5615 PRINT"            8 + 10 =  18":GOSUB82
5620 PRINT"            8 + 11 =  19":GOSUB82
5625 PRINT"            8 + 12 =";
5630 GOSUB600:INPUTA$
5640 IFA$<>"20" THEN5660
5650 GOSUB800
5655 GOSUB82:GOTO5700
5660 GOSUB700
5665 GOSUB500:GOSUB82:P=P+1
5670 GOSUB720
5675 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   8 + 12 = 20 [159]"
5680 IFP=3THENGOSUB84:GOSUB90:GOTO 5700
5685 GOSUB740
5690 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5620
5700 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
5705 PRINT"             9 + 9 =  18":GOSUB82
5710 PRINT"            9 + 10 =  19":GOSUB82
5715 PRINT"            9 + 11 =  20":GOSUB82
5720 PRINT"            9 + 12 =  21":GOSUB82
5725 PRINT"            9 + 13 =";
5730 GOSUB600:INPUTA$
5740 IFA$<>"22" THEN5760
5750 GOSUB800
5755 GOSUB82:GOTO5800
5760 GOSUB700
5765 GOSUB500:GOSUB82:P=P+1
5770 GOSUB720
5775 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   9 + 13 = 22 [159]"
5780 IFP=3THENGOSUB84:GOSUB90:GOTO 5800
5785 GOSUB740
5790 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5720
5800 PRINT"[147]   YOU HAVE COMPLETED LEVEL 5.
5805 [153]"   YOU NOW HAVE A CHOICE:
5810 PRINT"   PRESS  R [146] TO REPEAT THIS LEVEL.
5815 [153]"   PRESS  C WAIT TO SELECT A NEW LEVEL
5820 PRINT"   PRESS  M [146] TO RETURN TO DISK MENU
5825 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]5825
5830 [139]R$[178]"R"[167] [140]:[137]5000
5835 [139]R$[178]"C"[167] [140]:[137]200
5840 [151]631,13:[151]198,2
5845 [153]"LOAD RETURNING TO THE DISK MENU
5850 LOAD"MENU",8
5855 RUN
5860 END
6000 REM CREATED BY THE MAD MAN OF LORNE PARK    WHC 90:11:18/92:02:06